home *** CD-ROM | disk | FTP | other *** search
/ Softdisk G-S 144 / SGDS 144.2mg / SDGS.144 / PSL.SDA144 / B / SAXTON (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1993-08-23  |  14.0 KB  |  618 lines  |  [FC] Applesoft BASIC Program (0x0801)

  1. 0  ROT= 0: SPEED= 255: REM  (C)1992
  2. 100  PRINT  CHR$(21): IF  PEEK(176) >63  THEN  PRINT "TOO BIG. HGR2 WILL KILL LAST LINES.": STOP 
  3. 110  HGR2 : CALL 2304: POKE 48688, PEEK(0): POKE 48689, PEEK(1): LOMEM: 26624
  4. 130  CALL 2346: REM GSMONO
  5. 140  POKE 104,15: GOTO 1
  6. 150  CALL 2346: REM GSCOLR
  7. 160  PRINT  CHR$(4)"-SQ"d"BYE"d SPEED= <CTRL-0x08> DEL h`8 <CTRL-0x1f><UNKNOWN TOKEN> GOSUB <CTRL-0x02> HGR2 <CTRL-0x01>` IF ^ TAB(  IF ) TAB( <CTRL-0x09>  PLOT ) TAB( `8 <CTRL-0x1f><UNKNOWN TOKEN> GOSUB <CTRL-0x02> HGR2 <CTRL-0x01>` IF _ TAB(  IF ) TAB( ) SIN PLOT ) TAB( `"
  8. 36286 <UNKNOWN TOKEN><CTRL-0x0b> IF 1 GET  PLOT <UNKNOWN TOKEN><CTRL-0x0b> SPEED=  TAB(  DEL 
  9. 389  SPEED= 
  10. 20653  TAB(  IF R TAB(  IF W TAB(  SPEED= @ AT  ASC = <CTRL-0x04> IF U TAB( `<CTRL-0x0a> DEL  ASC IF T TAB( ` END  FOR  DATA  READ  VLIN  FLASH  NEW <UNKNOWN TOKEN><UNKNOWN TOKEN><UNKNOWN TOKEN><UNKNOWN TOKEN> TAN TAB(  END 
  11. 32896  END  END  END  END  END 
  12. 32896  END  END  END  END  END 
  13. 32896  END  END  END  END  END 
  14. 32896  END  END  END  END  END (((((((( STORE  STORE  STORE  STORE  STORE  STORE  STORE  STORE (((((((( STORE  STORE  STORE  STORE  STORE  STORE  STORE  STORE (((((((( STORE  STORE  STORE  STORE  STORE  STORE  STORE  STORE (((((((( STORE  STORE  STORE  STORE  STORE  STORE  STORE  STORE PPPPPPPP =  =  =  =  =  =  =  = PPPPPPPP =  =  =  =  =  =  =  = PPPPPPPP =  =  =  =  =  =  =  = PPPPPPPP =  =  =  =  =  =  =  = 
  15. 4108 <CTRL-0x14><CTRL-0x18><CTRL-0x1c>
  16. 4108 <CTRL-0x14><CTRL-0x18><CTRL-0x1c><CTRL-0x01><CTRL-0x05><CTRL-0x09><CTRL-0x0d><CTRL-0x11><CTRL-0x15><CTRL-0x19><CTRL-0x1d><CTRL-0x01><CTRL-0x05><CTRL-0x09><CTRL-0x0d><CTRL-0x11><CTRL-0x15><CTRL-0x19><CTRL-0x1d><CTRL-0x02><CTRL-0x06><CTRL-0x0a><CTRL-0x0e><CTRL-0x12><CTRL-0x16><CTRL-0x1a><CTRL-0x1e><CTRL-0x02><CTRL-0x06><CTRL-0x0a><CTRL-0x0e><CTRL-0x12><CTRL-0x16><CTRL-0x1a><CTRL-0x1e><CTRL-0x03><CTRL-0x07><CTRL-0x0b><CTRL-0x0f><CTRL-0x13><CTRL-0x17><CTRL-0x1b><CTRL-0x1f><CTRL-0x03><CTRL-0x07><CTRL-0x0b><CTRL-0x0f><CTRL-0x13><CTRL-0x17><CTRL-0x1b><CTRL-0x1f>
  17. 4108 <CTRL-0x14><CTRL-0x18><CTRL-0x1c>
  18. 4108 <CTRL-0x14><CTRL-0x18><CTRL-0x1c><CTRL-0x01><CTRL-0x05><CTRL-0x09><CTRL-0x0d><CTRL-0x11><CTRL-0x15><CTRL-0x19><CTRL-0x1d><CTRL-0x01><CTRL-0x05><CTRL-0x09><CTRL-0x0d><CTRL-0x11><CTRL-0x15><CTRL-0x19><CTRL-0x1d><CTRL-0x02><CTRL-0x06><CTRL-0x0a><CTRL-0x0e><CTRL-0x12><CTRL-0x16><CTRL-0x1a><CTRL-0x1e><CTRL-0x02><CTRL-0x06><CTRL-0x0a><CTRL-0x0e><CTRL-0x12><CTRL-0x16><CTRL-0x1a><CTRL-0x1e><CTRL-0x03><CTRL-0x07><CTRL-0x0b><CTRL-0x0f><CTRL-0x13><CTRL-0x17><CTRL-0x1b><CTRL-0x1f><CTRL-0x03><CTRL-0x07><CTRL-0x0b><CTRL-0x0f><CTRL-0x13><CTRL-0x17><CTRL-0x1b><CTRL-0x1f>
  19. 4108 <CTRL-0x14><CTRL-0x18><CTRL-0x1c>
  20. 4108 <CTRL-0x14><CTRL-0x18><CTRL-0x1c><CTRL-0x01><CTRL-0x05><CTRL-0x09><CTRL-0x0d><CTRL-0x11><CTRL-0x15><CTRL-0x19><CTRL-0x1d><CTRL-0x01><CTRL-0x05><CTRL-0x09><CTRL-0x0d><CTRL-0x11><CTRL-0x15><CTRL-0x19><CTRL-0x1d><CTRL-0x02><CTRL-0x06><CTRL-0x0a><CTRL-0x0e><CTRL-0x12><CTRL-0x16><CTRL-0x1a><CTRL-0x1e><CTRL-0x02><CTRL-0x06><CTRL-0x0a><CTRL-0x0e><CTRL-0x12><CTRL-0x16><CTRL-0x1a><CTRL-0x1e><CTRL-0x03><CTRL-0x07><CTRL-0x0b><CTRL-0x0f><CTRL-0x13><CTRL-0x17><CTRL-0x1b><CTRL-0x1f><CTRL-0x03><CTRL-0x07><CTRL-0x0b><CTRL-0x0f><CTRL-0x13><CTRL-0x17><CTRL-0x1b><CTRL-0x1f> J<UNKNOWN TOKEN> ONERR E) -  GOSUB <CTRL-0x03>L IF <CTRL-0x0b> PLOT "<CTRL-0x0b><CTRL-0x0a><CTRL-0x0a>.S<CTRL-0x0b><CTRL-0x0a>.S<CTRL-0x0b> PLOT R<CTRL-0x0b> IF S<CTRL-0x0b><CTRL-0x18>)<CTRL-0x03>i<CTRL-0x0b> PLOT S<CTRL-0x0b> ONERR <CTRL-0x02> LOMEM: <UNKNOWN TOKEN> = " ONERR $ DEL 
  21. 36871 <CTRL-0x04> ASC
  22. 1897  DEL <CTRL-0x06> ONERR % -<CTRL-0x13> HGR2 <CTRL-0x02> SPEED= <CTRL-0x12><CTRL-0x0a> DEL <CTRL-0x02><CTRL-0x0a><CTRL-0x0a>e<CTRL-0x02> DEL <CTRL-0x02> PLOT  CALL <CTRL-0x0b> SPEED= <UNKNOWN TOKEN> LOMEM: 2 +<UNKNOWN TOKEN><CTRL-0x02> SPEED= 
  23. 58891 <CTRL-0x02> SPEED= y VTAB <CTRL-0x09> *<UNKNOWN TOKEN><CTRL-0x09> EXP<UNKNOWN TOKEN><CTRL-0x0b> = <UNKNOWN TOKEN> SPEED= <UNKNOWN TOKEN> = <CTRL-0x02> SPEED=  =  COLOR= <CTRL-0x07> INPUT <CTRL-0x0b> PLOT x<CTRL-0x0b> LOMEM: <CTRL-0x02> POKE @<CTRL-0x09><CTRL-0x18>e  DEL & POKE 
  24. 34278 ' LOMEM: 
  25. 1157  IF <CTRL-0x01><CTRL-0x0c>I
  26. 9738 <CTRL-0x04> *<CTRL-0x10><UNKNOWN TOKEN>j DEL <CTRL-0x03> RESUME <CTRL-0x06> RETURN &=2<CTRL-0x09><CTRL-0x05><CTRL-0x03> HGR & + RETURN &=9<CTRL-0x09><CTRL-0x05><CTRL-0x04> HGR & ASC<CTRL-0x02> = <CTRL-0x05>  OR R<CTRL-0x0b> ASC<CTRL-0x0b><UNKNOWN TOKEN>R<CTRL-0x0b> SPEED=  =   NOT <CTRL-0x0b><CTRL-0x10> &  ONERR <CTRL-0x02>8 RIGHT$ ON  -<CTRL-0x0a><UNKNOWN TOKEN><CTRL-0x06> -<CTRL-0x01><UNKNOWN TOKEN>E GOSUB <CTRL-0x05> IF  CALL <CTRL-0x0b> DEL <CTRL-0x02> SPEED= 
  27. 43275 <CTRL-0x0c> PLOT S<CTRL-0x0b> ASC<CTRL-0x0b> SPEED=  = L7<CTRL-0x0b> -<CTRL-0x14><UNKNOWN TOKEN><CTRL-0x1b> -<CTRL-0x0c> = % X<UNKNOWN TOKEN>8 ONERR # VAL" STORE  RESUME ! J<UNKNOWN TOKEN> GR  = <UNKNOWN TOKEN> X<UNKNOWN TOKEN>L SQR<CTRL-0x0b> SPEED= # DEL ! SPEED= 
  28. 8837  SPEED= <CTRL-0x13> DEL # RESUME <UNKNOWN TOKEN><UNKNOWN TOKEN><CTRL-0x12>  NOT <CTRL-0x02> ASC
  29. 1701  -<CTRL-0x07> HGR2 <CTRL-0x06> SPEED= 
  30. 230  ?<UNKNOWN TOKEN>L<UNKNOWN TOKEN><UNKNOWN TOKEN> gjpqy_
  31. 3084 <CTRL-0x0c>
  32. 13107 66666
  33. 7695 <<CTRL-0x1f><CTRL-0x0c>
  34. 3096 <CTRL-0x06>33
  35. 28187 ;3n
  36. 1542 <CTRL-0x06><CTRL-0x0c><CTRL-0x18>
  37. 12336 0<CTRL-0x18><CTRL-0x0c>
  38. 16140 <CTRL-0x0c><CTRL-0x1e><CTRL-0x18><CTRL-0x18>~~<CTRL-0x18><CTRL-0x18><CTRL-0x0c><CTRL-0x0c><CTRL-0x06>>>
  39. 12 
  40. 1548 <CTRL-0x03>
  41. 15155 ?73<CTRL-0x1e>
  42. 3084 <CTRL-0x0c><CTRL-0x0c>?
  43. 7728 <CTRL-0x03><CTRL-0x03>?
  44. 7216 03<CTRL-0x1e>
  45. 13107 ?00
  46. 12319 03<CTRL-0x1e>
  47. 7939 33<CTRL-0x1e>
  48. 3096 <CTRL-0x06><CTRL-0x06><CTRL-0x06>
  49. 7731 33<CTRL-0x1e>
  50. 15923 03<CTRL-0x1e>
  51. 12 <CTRL-0x0c><CTRL-0x0c>
  52. 6144 <CTRL-0x18><CTRL-0x0c><CTRL-0x18><CTRL-0x0c><CTRL-0x06><CTRL-0x03><CTRL-0x06><CTRL-0x0c><CTRL-0x18>
  53. 62 >>
  54. 6156 0<CTRL-0x18><CTRL-0x0c><CTRL-0x06>
  55. 6192 <CTRL-0x0c>
  56. 25406 og<CTRL-0x1b>c>
  57. 13107 ?33
  58. 7987 33<CTRL-0x1f>
  59. 771 <CTRL-0x03>3<CTRL-0x1e>
  60. 13107 33<CTRL-0x1f>
  61. 3843 <CTRL-0x03><CTRL-0x03>?
  62. 3843 <CTRL-0x03><CTRL-0x03><CTRL-0x03>
  63. 15107 33<CTRL-0x1e>
  64. 16179 333
  65. 3084 <CTRL-0x0c><CTRL-0x0c>?
  66. 12336 03<CTRL-0x1e>
  67. 3871 <CTRL-0x1f>33
  68. 771 <CTRL-0x03><CTRL-0x03>?
  69. 13119 333
  70. 16183 ;33
  71. 13107 33<CTRL-0x1e>
  72. 7987 <CTRL-0x03><CTRL-0x03><CTRL-0x03>
  73. 13107 3<CTRL-0x1b>6
  74. 7987 <CTRL-0x0f><CTRL-0x1b>3
  75. 7683 03<CTRL-0x1e>
  76. 3084 <CTRL-0x0c><CTRL-0x0c><CTRL-0x0c>
  77. 13107 33<CTRL-0x1e>
  78. 13107 3<CTRL-0x1e><CTRL-0x0c>
  79. 13107 ??3
  80. 3102 <CTRL-0x1e>33
  81. 3102 <CTRL-0x0c><CTRL-0x0c><CTRL-0x0c>
  82. 3096 <CTRL-0x06><CTRL-0x03>?
  83. 1542 <CTRL-0x06><CTRL-0x06><CTRL-0x1e>
  84. 3078 <CTRL-0x18>0`
  85. 12336 00<
  86. 102 
  87. 3084 <CTRL-0x18>
  88. 13118 >
  89. 13087 33<CTRL-0x1f><CTRL-0x1e>3<CTRL-0x03>3<CTRL-0x1e>
  90. 13118 33><CTRL-0x1e>3<CTRL-0x1f><CTRL-0x03><CTRL-0x1e>
  91. 3135 <CTRL-0x0c><CTRL-0x0c><CTRL-0x0c>
  92. 13107 3>0<CTRL-0x1e><CTRL-0x03><CTRL-0x03><CTRL-0x1f>3333
  93. 3086 <CTRL-0x0c><CTRL-0x0c><CTRL-0x1e>
  94. 3086 <CTRL-0x0c><CTRL-0x0c><CTRL-0x0c><CTRL-0x07><CTRL-0x03><CTRL-0x03>3<CTRL-0x1f><CTRL-0x0f><CTRL-0x1f>3
  95. 3084 <CTRL-0x0c><CTRL-0x0c><CTRL-0x1e>3??33<CTRL-0x1f>3333<CTRL-0x1e>333<CTRL-0x1e>
  96. 13107 3<CTRL-0x1f><CTRL-0x03><CTRL-0x03>
  97. 13107 >00
  98. 819 <CTRL-0x03><CTRL-0x03><CTRL-0x1e><CTRL-0x03><CTRL-0x1e>0<CTRL-0x1e>
  99. 3135 <CTRL-0x0c><CTRL-0x0c><CTRL-0x1c>3333<CTRL-0x1e>333<CTRL-0x1e><CTRL-0x0c>33??33<CTRL-0x1e><CTRL-0x0c><CTRL-0x1e>3
  100. 13107 3>0<CTRL-0x1e>
  101. 3096 <CTRL-0x06>?
  102. 1548 <CTRL-0x0c><CTRL-0x0c>8
  103. 6168 <CTRL-0x18><CTRL-0x18><CTRL-0x18><CTRL-0x18><CTRL-0x07><CTRL-0x0c><CTRL-0x0c><CTRL-0x18><CTRL-0x0c><CTRL-0x0c><CTRL-0x07>
  104. 27 
  105. 32639 
  106. 1  DIM TX$(2000),I(14): PRINT  CHR$(21): HGR2 : INVERSE : GOSUB 10160: GOTO 20290
  107. 2  GOSUB 10200: RESTORE :D$ =  CHR$(4): INVERSE : PRINT D$"bloadsq.fr"
  108. 3  GOTO 20050
  109. 10 ESCAPE$ =  CHR$(27):SP$ =  CHR$(32):RA$ =  CHR$(21):DA$ =  CHR$(10):LA$ =  CHR$(8):UA$ =  CHR$(11):RTN$ =  CHR$(13):CK = 49168:D$ =  CHR$(4)
  110. 20 PP$(1) = "SHIELD":PP$(2) = "BOOTS":PP$(3) = "LONG BOW":PP$(4) = "DAGGER":PP$(5) = "FIRESTAFF":PP$(6) = "HEALING POTION"
  111. 21 NE$ = " NORTHEAST, GO ":NW$ = " NORTHWEST, GO ":SE$ = " SOUTHEAST, GO ":SW$ = " SOUTHWEST, GO "
  112. 30  PRINT D$"bloadsq.pc": CALL 24576
  113. 35  GOSUB 10220
  114. 40  PRINT D$;"OPEN SQ.TEXT": PRINT D$;"READ SQ.TEXT": FOR I = 1 TO 210: GOSUB 10120:TX$(I) = IN$: NEXT I: PRINT D$;"CLOSE SQ.TEXT"
  115. 50  GOSUB 10250
  116. 60  GOSUB 10050: GOSUB 10030: GOSUB 10010
  117. 61 AP = 0:FI = 0:WO = 0
  118. 70 TGL$ = " LOOK AROUND ":TGL = 1
  119. 80  FOR I = 1 TO 14:I(I) = 0: NEXT I:I(1) = 1:I(2) = 1
  120. 90  GOSUB 11000
  121. 100 MM$ = "Corn Field": GOSUB 10260:S = 49:F = 53:V = 2
  122. 101  IF WO = 1  THEN F = 51
  123. 110  GOSUB 10380: GOSUB 10050:OP$(1) = NE$:OP$(2) = SE$:N = 2
  124. 115  IF WO = 0  THEN V = V +1:OP$(V) = " TALK TO WOMAN "
  125. 117 N = V
  126. 120  GOSUB 10270: IF I = 0  THEN  GOSUB 10070: GOTO 120
  127. 125  IF I = 1  THEN WO = 1
  128. 130  ON I GOTO 6100,4100,200
  129. 200 S = 55:F = 58:WO = 1: GOSUB 10380: GOSUB 10050:OP$(1) = " CONTINUE ":N = 1
  130. 210  GOSUB 10270: IF I = 0  THEN  GOSUB 10070: GOTO 210
  131. 220  ON I GOTO 100
  132. 1600  IF AP = 1  AND FI = 0  THEN  GOTO 1660
  133. 1610  IF FI = 1  THEN  GOTO 1760
  134. 1620 MM$ = "DESERT": GOSUB 10260:S = 105:F = 110: GOSUB 10380
  135. 1630  GOSUB 10050:OP$(1) = " EAST, GO ":OP$(2) = " SOUTH, GO ":OP$(3) = " EXAM SKELETON ":N = 3
  136. 1640  GOSUB 10270: IF I = 0  THEN  GOSUB 10070: GOTO 1640
  137. 1650  ON I GOTO 4500,7500,1660
  138. 1660 MM$ = " DESERT ": GOSUB 10260:S = 112:F = 117: GOSUB 10380
  139. 1670  GOSUB 10050:OP$(1) = " EAST, GO ":OP$(2) = " SOUTH, GO ":OP$(3) = " FIGHT SKELETON ":N = 3
  140. 1680  GOSUB 10270: IF I = 0  THEN  GOSUB 10070: GOTO 1680
  141. 1690  ON I GOTO 4500,7500,1700
  142. 1700 X =  RND(1) + RND(1): IF X >.5  THEN  GOTO 1760
  143. 1710 S = 179:F = 183: GOSUB 10380
  144. 1720  GOTO 8055
  145. 1760 MM$ = " DESERT": GOSUB 10260:S = 123:F = 126: GOSUB 10380
  146. 1770 FI = 1
  147. 1780  IF I(4) = 1  THEN  GOSUB 10050:OP$(1) = " EAST, GO ":OP$(2) = " SOUTH, GO ":N = 2: GOTO 1800
  148. 1790  GOSUB 10050:OP$(1) = " EAST, GO ":OP$(2) = " SOUTH, GO ":OP$(3) = " TAKE DAGGER ":N = 3
  149. 1800  GOSUB 10270: IF I = 0  THEN  GOSUB 10070: GOTO 1800
  150. 1810  ON I GOTO 4500,7500,1820
  151. 1820 I(4) = 1: GOSUB 11000
  152. 1830  GOTO 1600
  153. 2600 MM$ = "WOLVES DEN": GOSUB 10260:S = 156:F = 161: GOSUB 10380
  154. 2610  GOSUB 10050:OP$(1) = " FIGHT WOLVES ":OP$(2) = " WEST,GO ":N = 2
  155. 2620  GOSUB 10270: IF I = 0  THEN  GOSUB 10070: GOTO 2620
  156. 2630  ON I GOTO 2700,2900
  157. 2700 X =  RND(1) *I(3): IF X >.5  THEN  GOTO 2720
  158. 2710  GOSUB 10260:S = 179:F = 183: GOSUB 10380: GOTO 8055
  159. 2720 MM$ = "WOLVES DEN": GOSUB 10260:S = 163:F = 168: GOSUB 10380
  160. 2730  GOSUB 10050:OP$(1) = " EAST, GO  ":OP$(2) = " WEST, GO ":N = 2
  161. 2740  GOSUB 10270: IF I = 0  THEN  GOSUB 10070: GOTO 2740
  162. 2750  ON I GOTO 8000,7500
  163. 2900  GOSUB 10260:S = 170:F = 174: GOSUB 10380: GOSUB 10050:OP$(1) = " QUIT ":OP$(2) = " RESTART ":N = 2
  164. 2910  GOSUB 10270: IF I = 0  THEN  GOSUB 10070: GOTO 2910
  165. 2920  ON I GOTO 2930,2940
  166. 2930  GOSUB 10070: GOTO 2600
  167. 2940  GOTO 60
  168. 3100 MM$ = "PEASANTS": GOSUB 10260:S = 147:F = 151: GOSUB 10380
  169. 3110  GOSUB 10050:OP$(1) = " EAST, GO ":OP$(2) = " NORTH,GO ":N = 2
  170. 3120  GOSUB 10270: IF I = 0  THEN  GOSUB 10070: GOTO 3120
  171. 3130  ON I GOTO 7310,7500
  172. 4100 MM$ = "VILLAGE": GOSUB 10260:S = 1:F = 4: GOSUB 10380
  173. 4105  GOSUB 10050: IF I(5) = 1  THEN  GOTO 4150
  174. 4108 OP$(1) = NE$:OP$(2) = NW$:OP$(3) = " TALK TO PEOPLE ":N = 3
  175. 4110  GOSUB 10270: IF I = 0  THEN  GOSUB 10070: GOTO 4110
  176. 4115  ON I GOTO 5100,100,4120
  177. 4120 MM$ = "VILLAGE": GOSUB 10260:S = 6:F = 8: GOSUB 10380
  178. 4125  GOSUB 10050:OP$(1) = NE$:OP$(2) = NW$:N = 2
  179. 4130  IF I(5) = 0  THEN I(5) = 1: GOSUB 11000
  180. 4140  GOSUB 10270: IF I = 0  THEN  GOSUB 10070: GOTO 4140
  181. 4145  ON I GOTO 5100,100
  182. 4150 OP$(1) = NE$:OP$(2) = NW$:N = 2
  183. 4155  GOSUB 10270: IF I = 0  THEN  GOSUB 10070: GOTO 4155
  184. 4160  ON I GOTO 5100,100
  185. 4335  ON I GOTO 1600,1800
  186. 4500 MM$ = "LAKE": GOSUB 10260:S = 138:F = 142: GOSUB 10380
  187. 4503  IF I(6) = 1  THEN  GOTO 4525
  188. 4505  GOSUB 10050:OP$(1) = " WEST, GO ":OP$(2) = " LOOK ":N = 2
  189. 4507  IF I(6) = 1  THEN N = N +1:OP$(N) = SE$
  190. 4510  GOSUB 10270: IF I = 0  THEN  GOSUB 10070: GOTO 4510
  191. 4512  ON I GOTO 1600,4515
  192. 4515 I(6) = 1: GOSUB 11000:MM$ = "LAKE ": GOSUB 10260
  193. 4516 S = 144:F = 145: GOSUB 10380: GOSUB 10050
  194. 4525  GOSUB 10050:OP$(1) = " WEST, GO ":OP$(2) = SE$:N = 2
  195. 4530  GOSUB 10270: IF I = 0  THEN  GOSUB 10070: GOTO 4530
  196. 4535  ON I GOTO 1600,8000
  197. 5100 MM$ = "ANSWER RIDDLE": GOSUB 10260:S = 29:F = 34: GOSUB 10380
  198. 5110  GOSUB 10050:OP$(1) = NW$ +" ":OP$(2) = SW$ +" ":OP$(3) = " ANSWER RIDDLE ":N = 3
  199. 5120  GOSUB 10270: IF I = 0  THEN  GOSUB 10070: GOTO 5120
  200. 5130  ON I GOTO 6100,4100,5200
  201. 5200 MM$ = "RIDDLE CHOICES": GOSUB 10260:S = 188:F = 190: GOSUB 10380
  202. 5210  GOSUB 10050:OP$(1) = " EGG ":OP$(2) = " HEART ":OP$(3) = " BRAIN ":OP$(4) = " DIAMOND ":N = 4
  203. 5215  GOSUB 10270: IF I = 0  THEN  GOSUB 10070: GOTO 5215
  204. 5217  ON I GOTO 7500,60,60,60
  205. 5600 MM$ = " Answer Riddle ": GOSUB 10260:S = 29:F = 34: GOSUB 10380
  206. 5610  GOSUB 10050:OP$(1) = " WEST, GO ":OP$(2) = " SOUTH, GO ":OP$(3) = " ANSWER RIDDLE ":N = 3
  207. 5620  GOSUB 10270: IF I = 0  THEN  GOSUB 10070: GOTO 5620
  208. 5630  ON I GOTO 3100,600,5640
  209. 5640 MM$ = " Choices ": GOSUB 10260
  210. 5650  GOSUB 10050:OP$(1) = " BRAIN ":OP$(2) = " DIAMOND ":OP$(3) = " EGG ":OP$(4) = " HEART ":N = 4
  211. 5660  GOSUB 10270: IF I = 0  THEN  GOSUB 10070: GOTO 5660
  212. 5670  ON I GOTO 70,70,7500,70
  213. 6100 MM$ = "TOWN": GOSUB 10260:S = 69:F = 73: GOSUB 10380
  214. 6110  GOSUB 10050:OP$(1) = SE$:OP$(2) = SW$:OP$(3) = " NORTH, GO ":OP$(4) = " TALK TO WOMAN  ":N = 4
  215. 6120  GOSUB 10270: IF I = 0  THEN  GOSUB 10070: GOSUB 6120
  216. 6130  ON I GOTO 5100,100,7710,6500
  217. 6500 MM$ = "TOWN": GOSUB 10260:S = 69:F = 73: GOSUB 10380
  218. 6510  GOSUB 10050:OP$(1) = " GIVE MONEY ":OP$(2) = " WALK ON ":N = 2
  219. 6520  GOSUB 10270: IF I = 0  THEN  GOSUB 10070: GOSUB 6520
  220. 6530  ON I GOTO 6700,6600
  221. 6599  END 
  222. 6600 MM$ = "TOWN": GOSUB 10260:S = 77:F = 79: GOSUB 10380: GOTO 8055
  223. 6700 MM$ = "TOWN": GOSUB 10260:S = 75:F = 76: GOSUB 10380
  224. 6710  GOSUB 10050:OP$(1) = SW$:OP$(2) = SE$:OP$(3) = " NORTH, GO ":N = 3
  225. 6720  GOSUB 10270: IF I = 0  THEN  GOSUB 10070: GOSUB 6720
  226. 6730  ON I GOTO 100,5100,7710
  227. 7300 :
  228. 7310 MM$ = "MAGIC FOREST": GOSUB 10260
  229. 7315 S = 128:F = 131: GOSUB 10380
  230. 7320  GOSUB 10050
  231. 7322  IF I(3) = 1  THEN  GOTO 7360
  232. 7325 OP$(1) = " WEST, GO ":OP$(2) = NE$:OP$(3) = " LOOK ":N = 3
  233. 7330  GOSUB 10270: IF I = 0  THEN  GOSUB 10070: GOTO 7330
  234. 7335  ON I GOTO 3100,8000,7341
  235. 7341 I(3) = 1: GOSUB 11000
  236. 7345 MM$ = "MAGIC FOREST": GOSUB 10260
  237. 7350 S = 176:F = 177: GOSUB 10380
  238. 7355  GOSUB 10050
  239. 7360 OP$(1) = " WEST, GO ":OP$(2) = NE$:N = 2
  240. 7365  GOSUB 10270: IF I = 0  THEN  GOSUB 10070: GOTO 7365
  241. 7370  ON I GOTO 3100,8000
  242. 7500 MM$ = "RIVER BANK": GOSUB 10260:S = 95:F = 99: GOSUB 10380
  243. 7510  GOSUB 10050:OP$(1) = " NORTH,GO ":OP$(2) = " SOUTH,GO ":OP$(3) = " WEST,GO ":OP$(4) = " EAST,GO ":N = 4
  244. 7520  GOSUB 10270: IF I = 0  THEN  GOSUB 10070: GOTO 7520
  245. 7530  ON I GOTO 1600,3100,5100,2600,7600
  246. 7600 I(14) = 1: GOSUB 11000
  247. 7610 S = 144:F = 145: GOSUB 10380
  248. 7615  GOSUB 10050:OP$(1) = " NORTH,GO ":OP$(2) = " SOUTH,GO ":OP$(3) = " WEST,GO ":OP$(4) = " EAST,GO ":N = 4
  249. 7620  GOSUB 10270: IF I = 0  THEN  GOSUB 10070: GOTO 7620
  250. 7625  ON I GOTO 7300,1600,5100,4100
  251. 7700 :
  252. 7710 MM$ = "FANTASY CASTLE": GOSUB 10260
  253. 7715 S = 133:F = 136: GOSUB 10380
  254. 7720  GOSUB 10050
  255. 7725 OP$(1) = " RESTART ":OP$(2) = " QUIT":N = 2
  256. 7730  GOSUB 10270: IF I = 0  THEN  GOSUB 10070: GOTO 7730
  257. 7735  ON I GOTO 60,7740
  258. 7740  GOSUB 10070: GOTO 7725
  259. 8000  GOSUB 10010:MM$ = "THRONE ROOM": GOSUB 10260:S = 192:F = 196: GOSUB 10380
  260. 8005  GOSUB 10050:OP$(1) = " FIGHT ":OP$(2) = SW$:OP$(3) = " WEST, GO ":OP$(4) = NW$:N = 4
  261. 8010  GOSUB 10270: IF I = 0  THEN  GOSUB 10070: GOTO 8010
  262. 8015  ON I GOTO 8020,7310,2600,4500
  263. 8020 X =  RND(1) *I(1) *I(2) *I(3) *I(4) *I(5) *I(6): IF X >.15  THEN  GOTO 8050
  264. 8025  GOSUB 10050:S = 198:F = 201: GOSUB 10380: GOSUB 10050:OP$(1) = " QUIT ":OP$(2) = " RESTART ":N = 2
  265. 8030  GOSUB 10270: IF I = 0  THEN  GOSUB 10070: GOTO 8030
  266. 8035  ON I GOTO 8040,8045
  267. 8040  GOSUB 10070: GOTO 8025
  268. 8045  GOTO 60
  269. 8050  GOSUB 10010:MM$ = "CASTLE TOWER": GOSUB 10260:S = 203:F = 206: GOSUB 10380
  270. 8055  GOSUB 10050:OP$(1) = " QUIT ":OP$(2) = " RESTART ":N = 2
  271. 8060  GOSUB 10270: IF I = 0  THEN  GOSUB 10070: GOTO 8060
  272. 8065  ON I GOTO 8070,8075
  273. 8070  GOSUB 10070: GOTO 8055
  274. 8075  GOTO 60
  275. 10000 :
  276. 10010  POKE 32,2: POKE 33,31: POKE 34,11: POKE 35,18: NORMAL : PRINT  CHR$(12): POKE 32,0: POKE 33,40: POKE 34,0: POKE 35,24: NORMAL : RETURN 
  277. 10020 :
  278. 10030  INVERSE : POKE 34,0: POKE 35,10: POKE 32,0: POKE 33,16: PRINT  CHR$(12): POKE 32,0: POKE 33,40: POKE 34,0: POKE 35,24: NORMAL : RETURN 
  279. 10040 :
  280. 10050  INVERSE : POKE 34,5: POKE 35,10: POKE 32,16: POKE 33,21: PRINT  CHR$(12): POKE 32,0: POKE 33,40: POKE 34,0: POKE 35,24: NORMAL : RETURN 
  281. 10060  HTAB (36 - LEN(A$))/2: PRINT A$: RETURN 
  282. 10070 A$ = "  Quit (Y/N)?  ": HTAB 19: NORMAL : VTAB 3: GOSUB 10140: PRINT A$
  283. 10080  GET A$: IF A$ = "n"  OR A$ = "N"  THEN  GOSUB 10260: RETURN 
  284. 10090  IF A$ = "y"  OR A$ = "Y"  THEN  PRINT D$"BYE"
  285. 10100  GOTO 10080
  286. 10110 :
  287. 10120  CALL  PEEK(121) + PEEK(122) *256 +32,IN$: REM   GET  COS  LEN SIN l EXP DEL  DEL  INPUT  DIM  , USR COLOR= <CTRL-0x01> GR  ROT=  COLOR= <CTRL-0x02> VTAB  PLOT   RIGHT$ LEN  SHLOAD  SQR`  SHLOAD  SQR``
  288. 10130  RETURN 
  289. 10140  CALL  PEEK(121) + PEEK(122) *256 +28: REM  SPEED=   DEL <UNKNOWN TOKEN> SPEED= <CTRL-0x01> DEL <UNKNOWN TOKEN> SPEED= <CTRL-0x02><CTRL-0x18> HGR2 <CTRL-0x14> PLOT 0 TAB(  SPEED= <CTRL-0x02> DEL <UNKNOWN TOKEN> SPEED= $<CTRL-0x18> HGR2 <CTRL-0x08> PLOT 0 TAB(   NOT <UNKNOWN TOKEN> =  STR$`8H RIGHT$<CTRL-0x01> = <UNKNOWN TOKEN>h RIGHT$<CTRL-0x01> = <UNKNOWN TOKEN> ONERR <UNKNOWN TOKEN> -<CTRL-0x01><UNKNOWN TOKEN> RND =  VAL:`
  290. 10150  RETURN 
  291. 10160  HCOLOR= 6: HPLOT 0,25 TO 278,25 TO 278,145 TO 0,145 TO 0,25: HCOLOR= 5: HPLOT 3,61 TO 276,61: HPLOT 3,105 TO 276,105
  292. 10170  VTAB 4:A$ = "SAXTONS QUEST": GOSUB 10060:A$ = "BY": GOSUB 10060:A$ = "CCHS SOFTWARE": GOSUB 10060
  293. 10180  PRINT :A$ = "Developed by the students of": GOSUB 10060: PRINT :A$ = "CENTRAL CAMBRIA HIGH SCHOOL": GOSUB 10060: PRINT 
  294. 10190 A$ = "Home of the": GOSUB 10060: PRINT :A$ = "R E D   D E V I L S": GOTO 10060
  295. 10200  VTAB 19:A$ = "Press a key": GOSUB 10060
  296. 10210  GET A$: RETURN 
  297. 10220  VTAB 1: HTAB 4: PRINT "SAXTONS QUEST": HCOLOR= 6: HPLOT 23,13 TO 127,13
  298. 10230  VTAB 4: HTAB 4: PRINT "by": VTAB 7: HTAB 4: PRINT "CCHS SOFTWARE": HPLOT 20,73 TO 130,73 TO 130,55 TO 20,55 TO 20,73
  299. 10240  RETURN 
  300. 10250  NORMAL :A$ = "Press a key": VTAB 15: GOSUB 10060: GET A$: RETURN 
  301. 10260  NORMAL : VTAB 3: HTAB 19: PRINT "               ": VTAB 3: HTAB (19 +(16 - LEN(MM$))/2): PRINT MM$: RETURN 
  302. 10270  POKE 32,0: POKE 33,40: POKE 34,0: POKE 35,24: INVERSE : FOR I = 1 TO N: VTAB 5 +I: HTAB 20: PRINT OP$(I);: IF  LEN(OP$(I)) <18  THEN  PRINT 
  303. 10280  NEXT I:I = 1: VTAB 5 +I: HTAB 20: NORMAL : PRINT OP$(I): INVERSE 
  304. 10290  GET A$: POKE CK,0: IF A$ = ESCAPE$  THEN I = 0: GOTO 10370
  305. 10300  IF (A$ = RA$)  OR (A$ = DA$)  OR (A$ = SP$)  THEN  VTAB 5 +I: HTAB 20: PRINT OP$(I):I = I +1 -N *(I = N): VTAB 5 +I: HTAB 20: NORMAL : PRINT OP$(I): INVERSE : GOTO 10360
  306. 10310  IF (A$ = LA$)  OR (A$ = UA$)  THEN  VTAB 5 +I: HTAB 20: PRINT OP$(I):I = I -1 +N *(I = 1): VTAB 5 +I: HTAB 20: NORMAL : PRINT OP$(I): INVERSE : GOTO 10360
  307. 10320  IF A$ = RTN$  THEN 10370
  308. 10330  IF (A$ > = "a")  AND (A$ < = "z")  THEN A$ =  CHR$( ASC(A$) -( ASC("a") - ASC("A")))
  309. 10340  FOR J = 1 TO N:K = I +J -N *((I +J) >N): IF A$ =  MID$ (OP$(K),2,1)  THEN  VTAB 5 +I: HTAB 20: PRINT OP$(I):I = K: VTAB 5 +I: HTAB 20: NORMAL : PRINT OP$(I): INVERSE :J = N:K =  -1
  310. 10350  NEXT J: IF K =  -1  THEN 10370
  311. 10360  GOTO 10290
  312. 10370  RETURN 
  313. 10380  GOSUB 10010: VTAB 13: FOR X = S TO F: HTAB 3: PRINT TX$(X): NEXT X: RETURN 
  314. 11000  GOSUB 10030: VTAB 1: HTAB 3: PRINT " INVENTORY ": INVERSE : PRINT 
  315. 11010  FOR II = 1 TO 6: VTAB 2 +II
  316. 11020  IF I(II) = 1  THEN  PRINT PP$(II)
  317. 11030  NEXT II: NORMAL : RETURN 
  318. 20050  CALL 12032
  319. 20080  GOTO 20330
  320. 20090 TT = 24576
  321. 20110  CALL TT
  322. 20120 V = 2:I = 0
  323. 20130 I = I +1
  324. 20140  VTAB V: HTAB 2: PRINT TX$(I):V = V +1
  325. 20150  IF V < >19  THEN 20130
  326. 20160 K =  PEEK( -16368): IF K <128  THEN 20160
  327. 20170  POKE  -16384,0: IF K = 155  THEN I = CN
  328. 20180  IF K = 139  OR K = 136  THEN I = I -34: IF I <0  THEN I = 0
  329. 20190  IF I > = CN  THEN 20050
  330. 20200  CALL TT:V = 2: GOTO 20130
  331. 20220  ONERR  GOTO 20250
  332. 20230  CALL  PEEK(121) + PEEK(122) *256 +32,IN$: REM   GET  COS  LEN SIN l EXP DEL  DEL  INPUT  DIM  , USR COLOR= <CTRL-0x01> GR  ROT=  COLOR= <CTRL-0x02> VTAB  PLOT   RIGHT$ LEN  SHLOAD  SQR`  SHLOAD  SQR``
  333. 20240  GOTO 20320
  334. 20250  POKE 216,0
  335. 20260  PRINT  CHR$(4);"CLOSE"
  336. 20270  GOTO 2
  337. 20290  PRINT  CHR$(4);"OPEN SQ.STORY"
  338. 20300  PRINT  CHR$(4);"READ SQ.STORY"
  339. 20310  GOTO 20220
  340. 20320 CN = CN +1:TX$(CN) = IN$: GOTO 20310
  341. 20330  GET A$
  342. 20340  IF A$ = "1"  THEN  GOTO 20090
  343. 20350  IF A$ = "2"  THEN  CLEAR : DIM TX$(2000),I(14): GOTO 10
  344. 20360  IF A$ = "3"  THEN  PRINT "<CTRL-0x04>BYE"
  345. 20370  CALL 26368
  346. 20380  GOTO 20330
  347. 48109 <CTRL-0x18>e: DEL o ONERR ;i
  348. 42296 t<UNKNOWN TOKEN> LEFT$ CONT <UNKNOWN TOKEN><CTRL-0x06> PLOT  PEEK CONT   HIMEM:  HIMEM: <CTRL-0x18>` z RESUME  SPEED=  VTAB  PLOT 
  349. 601 )<CTRL-0x0f> STORE  POKE Y<CTRL-0x02><CTRL-0x09> END  SCALE= <CTRL-0x01><CTRL-0x02> GR  = <UNKNOWN TOKEN> CALL <CTRL-0x0c> LIST  IF i<CTRL-0x02> VTAB <CTRL-0x0e> + + EXP<UNKNOWN TOKEN> POKE <UNKNOWN TOKEN><CTRL-0x0b> + *<CTRL-0x10><UNKNOWN TOKEN> COLOR= <CTRL-0x13> SPEED= @ DEL  ASC <UNKNOWN TOKEN><UNKNOWN TOKEN> SPEED=  TRACE  DEL 
  350. 389  <CTRL-0x1f>/,P TAB( ,R TAB( ,U TAB( ,W TAB( ` ONERR  ASC<CTRL-0x09><CTRL-0x04> DEL <CTRL-0x06> VTAB <CTRL-0x01> DIM <CTRL-0x04> COLOR= 
  351. 1412  INPUT <CTRL-0x08> RETURN 
  352. 230  = <CTRL-0x02> ASC<CTRL-0x01> RETURN 
  353. 230  = <CTRL-0x02> ASC<CTRL-0x01> RETURN 
  354. 1957   NOT <CTRL-0x08> LOMEM: <CTRL-0x02> HGR <CTRL-0x05> LEFT$ LEFT$ TAN TAB(  HGR2 <CTRL-0x12> ASC<CTRL-0x02> LOMEM: <CTRL-0x02> TAB( ( HGR2 <CTRL-0x08>  NOT <CTRL-0x04>0<CTRL-0x15> COLOR= 
  355. 1190  y/ LOMEM: <CTRL-0x08> =  POS ASC
  356. 486  =  POKE ` PR# ) TAB(  DEL <CTRL-0x05>JJ<CTRL-0x05><CTRL-0x05> DEL <CTRL-0x05> PR#  DEL <CTRL-0x06><CTRL-0x0a><CTRL-0x0a><CTRL-0x0a>&<CTRL-0x06><CTRL-0x0a>&<CTRL-0x06><CTRL-0x0a>f<CTRL-0x05> ONERR <CTRL-0x06>)<CTRL-0x1f><CTRL-0x05> ASC DEL <CTRL-0x06>`
  357. 42 3 END 
  358. 4864  END U
  359. 213 <CTRL-0x17><UNKNOWN TOKEN> USR
  360. 32810  END  GOSUB <UNKNOWN TOKEN> GOSUB 
  361. 57536  TAN TAB( 
  362. 170 <CTRL-0x17> LET 
  363. 57536  TAN TAN<UNKNOWN TOKEN> END  END 
  364. 32896  END U END  END  DIM  LEN TAN
  365. 33276  ^ ^ FOR <UNKNOWN TOKEN>
  366. 213 <CTRL-0x07><CTRL-0x0f><CTRL-0x1f><CTRL-0x1f>g<CTRL-0x1f>gg<CTRL-0x1f>g USR
  367. 49055 <UNKNOWN TOKEN> GOTO  LET  PR#  LET  STORE  STORE  RESTORE  NEW  VLIN <CTRL-0x0e><CTRL-0x1a>* END  END  TAB(  ^ ^
  368. 35969  SCALE=  SCALE=  CALL  FOR 
  369. 36088  TAB( <UNKNOWN TOKEN> END  END  LET 
  370. 32527 |<CTRL-0x0e>|<CTRL-0x0e>| LET 
  371. 49344  END  END U END  END  FOR  SCALE=  SCALE=  END  END  END <UNKNOWN TOKEN> HLIN  HLIN  HLIN  INVERSE <UNKNOWN TOKEN>
  372. 36604 <UNKNOWN TOKEN> END  END <UNKNOWN TOKEN>
  373. 39064  ROT=  LIST 
  374. 39320 <UNKNOWN TOKEN> END  END  USR<CTRL-0x01><CTRL-0x19><CTRL-0x19>O<CTRL-0x1c>OLOOL<CTRL-0x1f> USR
  375. 64170 <UNKNOWN TOKEN>x* END  END  DATA  STOP  STOP  END  END  END  FLASH  DEF  END  END  LIST  READ 
  376. 32927  READ  LIST  LIST  READ 
  377. 59068 <UNKNOWN TOKEN> LIST 
  378. 62384  STOP <UNKNOWN TOKEN> END  END  LET sCs|y<CTRL-0x19><CTRL-0x19><CTRL-0x19><CTRL-0x19><CTRL-0x19><CTRL-0x1c> LET 
  379. 54485  FOR  END U END  END  END  DIM  GOSUB  END  END  END <UNKNOWN TOKEN> HLIN  HLIN  HLIN  INVERSE <UNKNOWN TOKEN>
  380. 36604  HLIN <UNKNOWN TOKEN> HLIN  HLIN 
  381. 52472 <UNKNOWN TOKEN><UNKNOWN TOKEN>
  382. 50883  LEN END  END  USRggg<CTRL-0x1c><CTRL-0x1c><CTRL-0x1c>303sss USR
  383. 43690  END  END * END  END  DIM  ASC ASC END  END  END  FLASH  DEF  END  END  LIST  READ 
  384. 47263  DEF  NEW  DEF  DEF 
  385. 33264  FOR <UNKNOWN TOKEN>
  386. 58311  SPC(  END  END  LET LLL333`ff||| LET  END  END  END  TAB( 
  387. 63736  USR USR STORE  END U END  END  END  ^ CALL  END  END  END  HLIN  HLIN <UNKNOWN TOKEN> HLIN  HLIN  HLIN 
  388. 47246  TAN DEF  HLIN  HLIN 
  389. 33665  DATA  FOR  END  TAN GOSUB <UNKNOWN TOKEN> GOSUB  END  END   STEP  TAB(   STEP  END  END  USRyyyfpf|p|||| USR END  END  END  LET  NEXT  NEXT  NEXT  PR# 
  390. 33153  LET <UNKNOWN TOKEN><UNKNOWN TOKEN>x* END  END  END  SCALE=  ROT=  END  END  END  DEF  DEF  NEW  DEF  DEF  DEF 
  391. 36536  DATA  HLIN  DEF  DEF 
  392. 63640  ROT= <UNKNOWN TOKEN> END  LEN ASC CHR$ ASC END  TAB(  > TO  TO  END  END  LET 
  393. 24908 s
  394. 170 <CTRL-0x0f> END  DEL  INPUT  FOR  END U END  END  DATA  DATA  DATA  END  END  END <UNKNOWN TOKEN> HLIN <UNKNOWN TOKEN> END  END <UNKNOWN TOKEN> END  END <UNKNOWN TOKEN> READ  READ <UNKNOWN TOKEN> READ  READ  END  END <UNKNOWN TOKEN>
  395. 1536  END  RETURN  STOP  FOR  END 
  396. 33152 <UNKNOWN TOKEN> SCALE=  SCALE=  END  END  USR
  397. 213 <CTRL-0x13> END * END  END  END  ROT=  ROT=  END  END  END  FLASH  END  READ  LIST  LIST  READ  END  END  VLIN  NOTRACE  INVERSE  DATA 
  398. 159 <CTRL-0x05> FOR 
  399. 34438  DIM  END  END  TAN TAN TAN END  TAN<UNKNOWN TOKEN> LEN TAB(  END  END  LET 
  400. 170 <CTRL-0x13> END U END  END  END  STOP  STOP 
  401. 255 <CTRL-0x04> READ  END  END <UNKNOWN TOKEN> HLIN  HLIN  HLIN  INVERSE <UNKNOWN TOKEN>
  402. 45280  END  TAN END  TAN CHR$ TAN TAN END  GOSUB  STOP  GOSUB  STOP  END  END 
  403. 4864  END * END  END  END  DIM  DIM 
  404. 40079 
  405. 47263  DEF  DEF  LIST  READ 
  406. 57539  ASC SPC(  END  END <UNKNOWN TOKEN> ^ TAB(  END  END  LIST  ASC LIST 
  407. 63712 <UNKNOWN TOKEN><UNKNOWN TOKEN>
  408. 32853  END  TAB(  TAN GOSUB  END  END  END <UNKNOWN TOKEN> HLIN <UNKNOWN TOKEN> END  END <UNKNOWN TOKEN> END  END  END <UNKNOWN TOKEN> READ <UNKNOWN TOKEN> VLIN <UNKNOWN TOKEN> END  END  INVERSE <UNKNOWN TOKEN><UNKNOWN TOKEN> HLIN  HLIN  HLIN 
  409. 52423  ^  STEP  END  ROT= <UNKNOWN TOKEN> SCALE=  SCALE=  END  END <UNKNOWN TOKEN> ^ ^
  410. 36739  VLIN  READ 
  411. 32810  END  SCALE=  CALL  DIM  END  END  END  FLASH  END  READ  LIST  LIST  READ  END  END  END  VLIN  NOTRACE  FLASH  INVERSE  DATA  END  END  DEF  DEF  NEW  NEW  LIST  DEF 
  412. 33183  FOR  FOR  END  TAN<UNKNOWN TOKEN> LEN SPC(  END  END <UNKNOWN TOKEN><UNKNOWN TOKEN><UNKNOWN TOKEN>
  413. 32853  END  TAB( 
  414. 36604  HLIN  INVERSE <UNKNOWN TOKEN> END  END  END <UNKNOWN TOKEN> VLIN <UNKNOWN TOKEN> END <UNKNOWN TOKEN> END  END <UNKNOWN TOKEN> HLIN <UNKNOWN TOKEN> END  END <UNKNOWN TOKEN>
  415. 36031  CALL  CALL  END  END  LEN TAN<UNKNOWN TOKEN> END  END  SCALE=  END  ROT= 
  416. 32810  END  LEN LEN DATA 
  417. 47263  DEF  LIST  READ  END  END  END  VLIN  END  VLIN  INVERSE  DATA  END  END  FLASH  END  READ  LIST  LIST  READ 
  418. 59070  ASC GET  END  END  DATA  FOR  FOR 
  419. 192 . END U END  END  ^ ^ CALL  END  END  END <UNKNOWN TOKEN><UNKNOWN TOKEN>
  420. 32896  END <UNKNOWN TOKEN><CTRL-0x07> VLIN <UNKNOWN TOKEN>
  421. 39100  ROT=  LIST  END  END <UNKNOWN TOKEN> ROT=  ROT=  END  DATA  DATA  LEN READ 
  422. 32810  END  SCALE=  SCALE=  ROT=  END  END  END  READ  READ 
  423. 40079  FLASH  INVERSE  DATA 
  424. 34492  TAN LIST  END  END <UNKNOWN TOKEN><UNKNOWN TOKEN><UNKNOWN TOKEN> END  TAN GOSUB  STOP  TAN
  425. 85 <CTRL-0x04> END  DATA  END  END  END  TAN<UNKNOWN TOKEN> TAN TAN TAN
  426. 127 <CTRL-0x04> READ  END  END <UNKNOWN TOKEN> HLIN  HLIN  HLIN  INVERSE <UNKNOWN TOKEN>
  427. 60620  ^ ^ END  END  ATN LEN<UNKNOWN TOKEN> END  SPC(  ASC ASC SPC( 
  428. 42 <CTRL-0x08> END  FOR  FLASH  FOR  FOR  DATA  INVERSE  END  END  END  VLIN 
  429. 32896  FLASH  DEF  DEF  DEF  NEW  STOP 
  430. 32897  FOR  FOR  END  END  LEN<UNKNOWN TOKEN> ATN END  READ  ^ ^ READ 
  431. 85 <CTRL-0x09> END  HLIN   OR <UNKNOWN TOKEN> GET  HLIN  END  END <UNKNOWN TOKEN><UNKNOWN TOKEN><UNKNOWN TOKEN><UNKNOWN TOKEN><UNKNOWN TOKEN> END  END  END 
  432. 61598 
  433. 52476  CALL  CALL  END  END  LEN CHR$ LEN END  VLIN  SCALE=  SCALE=  VLIN 
  434. 32810  ABS USR USR USR
  435. 47544  NEW  GET  DEF  END  END  END  VLIN  END  END  FOR  VLIN  END  END 
  436. 34748 
  437. 39320  ROT= <UNKNOWN TOKEN> END  END  CHR$ TAN END  END  END  TAB(  >
  438. 32789  END  LET  LET  LET 
  439. 36604  HLIN  INVERSE <UNKNOWN TOKEN> END  END  END <UNKNOWN TOKEN> VLIN <UNKNOWN TOKEN> END <UNKNOWN TOKEN> END  END <UNKNOWN TOKEN> HLIN <UNKNOWN TOKEN> HLIN  HLIN <UNKNOWN TOKEN>
  440. 46067  STOP <UNKNOWN TOKEN> END  END  CALL  ^ DATA  END  VLIN  SCALE=  SCALE=  VLIN 
  441. 54661  USR USR
  442. 47295  DEF  DEF  NEW  END  END  END  VLIN  END  VLIN  INVERSE  DATA  END  END  NEW  END  READ  END  END  NEW 
  443. 59107  ASC LEN END  END  VLIN  FLASH  VLIN  END  INVERSE  GOSUB  GOSUB  INVERSE 
  444. 43688  LET  LET 
  445. 254 <CTRL-0x04> HLIN 
  446. 36604 <UNKNOWN TOKEN> END  END <UNKNOWN TOKEN>
  447. 49376  TAB(  CHR$ END  GOSUB  GET  STOP  GET  END  CALL  CALL  CALL  INVERSE  END  END  END <UNKNOWN TOKEN>PPP<UNKNOWN TOKEN>
  448. 54721  USR USR
  449. 47263 
  450. 32927  READ  LIST  LIST  READ 
  451. 45539  FOR  LEN
  452. 49295  END  END  END j*** TAN
  453. 43658  LET  LET 
  454. 36604 <UNKNOWN TOKEN> INVERSE <UNKNOWN TOKEN>
  455. 254 <CTRL-0x05> TAN
  456. 57571  ASC LEN
  457. 39055  DIM  FLASH  END  END  ROT= 
  458. 155 <CTRL-0x05> ROT=  LET  VTAB  END  LET  VTAB  END  END  LET  VTAB  END  LET  VTAB 
  459. 1280  STORE <UNKNOWN TOKEN>
  460. 41642  END  LET  VTAB 
  461. 47263  NEW  LIST  READ 
  462. 159 <CTRL-0x05> FOR 
  463. 36044  CALL  ^
  464. 40862  STOP  INVERSE 
  465. 34180  END  ABS AT  END  END  ABS AT  END  ABS AT  END  END  USR AT  END  USR AT  END  END  USR AT  END  USR AT  END  END  USR AT  END  USR AT  END  ABS AT  END  ABS AT 
  466. 58343  LEN CHR$
  467. 59068 <UNKNOWN TOKEN> LIST 
  468. 35496  END  END  STORE  PR#  END  STORE  PR#  END  END  STORE  PR#  END  STORE  PR#  END  END  STORE  PR#  END  STORE  PR#  END  END  STORE  PR#  END  STORE  PR#  END  STORE  PR#  END  STORE  PR# 
  469. 46000  LIST  GOSUB 
  470. 52364 <UNKNOWN TOKEN> TAB( 
  471. 38353  END  < XDRAW  END  END  < XDRAW  END  < XDRAW  END  END  < XDRAW  END  < XDRAW  END  END  < XDRAW  END  < XDRAW  END  END  < XDRAW  END  < XDRAW  END  < XDRAW  END  < XDRAW 
  472. 34556   NOT <UNKNOWN TOKEN>
  473. 33153  FOR 
  474. 33410  END  VTAB  LET  END  END  VTAB  LET  END  VTAB  LET  END  END  VTAB  LET  END  VTAB  LET  END  END  VTAB  LET  END  VTAB  LET  END  END  VTAB  LET  END  VTAB  LET  END  VTAB  LET  END  VTAB  LET 
  475. 129 <CTRL-0x18> END  TAB(  TAB(  END  AT  ABS END  END  AT  ABS END  AT  ABS END  END  AT  ABS END  AT  ABS END  END  AT  ABS END  AT  ABS END  END  AT  ABS END  AT  ABS END  AT  ABS END  AT  ABS
  476. 43146  END  PR#  STORE  END  END  PR#  STORE  END  PR#  STORE  END  END  LET  VTAB  END  LET  VTAB  END  END  LET  VTAB  END  LET  VTAB  END  END  LET  VTAB  END  LET  VTAB  END  PR#  STORE  END  PR#  STORE 
  477. 33153  END  XDRAW  < END  END  XDRAW  < END  XDRAW  < END  END  ABS AT  END  ABS AT  END  END  ABS AT  END  ABS AT  END  END  ABS AT  END  ABS AT  END  XDRAW  < END  XDRAW  <
  478. 41120  END  LET  VTAB  END  END  LET  VTAB  END  LET  VTAB  END  END  STORE  PR#  END  STORE  PR#  END  END  STORE  PR#  END  STORE  PR#  END  END  STORE  PR#  END  STORE  PR#  END  LET  VTAB  END  LET  VTAB 
  479. 50644  END  ABS AT  END  END  ABS AT  END  ABS AT  END  END  < XDRAW  END  < XDRAW  END  END  < XDRAW  END  < XDRAW  END  END  < XDRAW  END  < XDRAW  END  ABS AT  END  ABS AT 
  480. 10794 
  481. 6656  COLOR= 
  482. 21845 
  483. 54741 
  484. 54741 
  485. 10794  END <UNKNOWN TOKEN> GOSUB  GOSUB  GOSUB 
  486. 57568  TAN
  487. 43690 
  488. 43690 
  489. 57568  TAN<UNKNOWN TOKEN><UNKNOWN TOKEN> END  TAB(  TAB(  TAB(  END  TAB(  END  END UU END  DATA  ASC TAN TAB( 
  490. 63623  CALL <UNKNOWN TOKEN> READ 
  491. 54741 
  492. 7967 <CTRL-0x1f><CTRL-0x0f><CTRL-0x0f>O<CTRL-0x07><CTRL-0x0f><CTRL-0x0f> USR USR
  493. 49039  NEW / GOTO  PR#  PR#  LET  STORE  RESTORE  END  FLASH <CTRL-0x0e><CTRL-0x1e>** END  TAB(  ^ ^ >
  494. 39047  ROT=  ROT=  READ 
  495. 63692  ^ END  END  LET  LET 
  496. 32271 ~|<CTRL-0x0f>|~|<CTRL-0x0c>~ LET  LET 
  497. 129 <CTRL-0x06> END  TAB(  TAB(  END  END UU END  FOR  VLIN  SCALE=  VLIN  END  END <UNKNOWN TOKEN> INVERSE  HLIN  HLIN  HLIN <UNKNOWN TOKEN>
  498. 40688  INVERSE <UNKNOWN TOKEN> END <UNKNOWN TOKEN>
  499. 39068  ROT= 
  500. 39041  SCALE=  END  END  USR USR<CTRL-0x19><CTRL-0x01><CTRL-0x19><CTRL-0x19><CTRL-0x1f>O|<CTRL-0x0f><CTRL-0x1f>OL<CTRL-0x1f><CTRL-0x1f>OL? USR USR
  501. 43690 <UNKNOWN TOKEN><UNKNOWN TOKEN>** END 
  502. 32896  READ  LIST  END  END  DEF  FLASH 
  503. 32927  END  FLASH  DEF  FLASH 
  504. 59110  TAN
  505. 46000  STOP  END  END  LET  LET <CTRL-0x03>ss<CTRL-0x03><CTRL-0x18>y|<<CTRL-0x1f><CTRL-0x19><CTRL-0x18><CTRL-0x1c><CTRL-0x19><CTRL-0x19>0 LET  LET 
  506. 54741  FOR  FOR UU END  END  LIST  NOTRACE  INVERSE  END  END <UNKNOWN TOKEN> INVERSE  HLIN  HLIN  HLIN <UNKNOWN TOKEN>
  507. 40688  HLIN <UNKNOWN TOKEN> HLIN  HLIN 
  508. 52428  TAB( 
  509. 34534  END  END  USR USR<CTRL-0x06>ggf0<CTRL-0x1c><CTRL-0x1c><83333ss8 USR USR
  510. 43690  END  END ** END  DIM  GET  ASC ASC END  END  READ  LIST  END  END  DEF  FLASH 
  511. 48263  DEF  NEW  DEF  DEF 
  512. 57753  SCALE= 
  513. 59104  END  END  LET  LET NLL<CTRL-0x1c>8338f`ff<CTRL-0x18>||x LET  LET  END  END  END 
  514. 63728  USR USR STORE  STORE UU END  END <UNKNOWN TOKEN><UNKNOWN TOKEN><UNKNOWN TOKEN> END  END  HLIN  HLIN  HLIN <UNKNOWN TOKEN> HLIN  HLIN 
  515. 40078 <UNKNOWN TOKEN><UNKNOWN TOKEN> NOTRACE  HLIN 
  516. 33155  DATA  END  END  GOSUB  GOSUB  GOSUB  END  END  END  ^ ^ END  END  USR USRyyy|pfff@||@p||| USR USR END  END  END  PR#  NEXT  NEXT  NEXT  LET 
  517. 43649  LET <UNKNOWN TOKEN><UNKNOWN TOKEN>** END  END <UNKNOWN TOKEN> SCALE= <UNKNOWN TOKEN> END  END  DEF  DEF  DEF  NEW  DEF  DEF 
  518. 40120  READ  READ  NOTRACE  DEF 
  519. 39064  ROT=  END  END  ASC ASC ASC END  END  END  SPC(  TO  END  END  LET  LET 
  520. 19532 ss
  521. 43690 
  522. 34181  FOR  FOR UU END 
  523. 32896 <UNKNOWN TOKEN> INVERSE  INVERSE <UNKNOWN TOKEN> END <UNKNOWN TOKEN> END  END <UNKNOWN TOKEN> READ  READ <UNKNOWN TOKEN> READ  READ  END  END <UNKNOWN TOKEN>
  524. 1792  END  STOP  LEN TAN END  CALL  CALL  CALL  END  END  END  SCALE= <UNKNOWN TOKEN> ROT=  END  USR USR
  525. 54741 
  526. 10794  END  END <UNKNOWN TOKEN> ROT= <UNKNOWN TOKEN> END  END  FLASH  END  END  FLASH  DEF  FLASH  END  END  DATA  INVERSE  NOTRACE  VLIN 
  527. 159 <CTRL-0x05> FOR 
  528. 34694  DATA  END  END  TAN TAN END  END  TAN LEN ATN END  END  LET  LET 
  529. 43690 
  530. 21845  END  END <UNKNOWN TOKEN> STOP  RETURN 
  531. 255 <CTRL-0x04> READ  END  END <UNKNOWN TOKEN> INVERSE  HLIN  HLIN  HLIN <UNKNOWN TOKEN>
  532. 57520  GOSUB  END  END  END  ATN TAN END  END  END  GOSUB  GOSUB  END  END 
  533. 4608  END ** END  END  DATA  DIM  DIM 
  534. 40579 
  535. 48263  DEF  DEF  DEF  FLASH 
  536. 58342  ASC END  END  END  ^<UNKNOWN TOKEN><UNKNOWN TOKEN> END  END  ASC ASC
  537. 63728 <UNKNOWN TOKEN> TAN
  538. 21845  END  TAB( <UNKNOWN TOKEN><UNKNOWN TOKEN> GOSUB  END  END <UNKNOWN TOKEN> INVERSE  INVERSE <UNKNOWN TOKEN> END <UNKNOWN TOKEN> END  END  END <UNKNOWN TOKEN> VLIN <UNKNOWN TOKEN> READ <UNKNOWN TOKEN> END  END  HLIN  GET <UNKNOWN TOKEN>  OR  HLIN  HLIN 
  539. 52428  ^ END  END  ROT=  SCALE=  SCALE=  END  END  END  ^ ^
  540. 36743  VLIN  DATA 
  541. 10794  END  SCALE=  FLASH  FLASH  DIM  END  END  FLASH  END  END  FLASH  DEF  FLASH  END  END  END  DATA  INVERSE  FLASH  END  VLIN  END  END  DEF  DEF  POKE  NEW  GET  DEF 
  542. 36737  FOR  END  END  TAN LEN LEN END  END  END  SCALE=  TO 
  543. 21845 
  544. 32960  END  END <UNKNOWN TOKEN> INVERSE  HLIN  HLIN <UNKNOWN TOKEN> END  END  END <UNKNOWN TOKEN> VLIN <UNKNOWN TOKEN> END <UNKNOWN TOKEN> END  END <UNKNOWN TOKEN> INVERSE  INVERSE <UNKNOWN TOKEN> END <UNKNOWN TOKEN>
  545. 35980  CALL  END  END  END  GOSUB 
  546. 39320 
  547. 10794  END  LEN LEN LEN READ  END  END  END  READ  LIST  DEF  DEF  FLASH  END  END  END  VLIN  END  DATA  INVERSE  VLIN  END  END  FLASH  END  END  FLASH  DEF  FLASH 
  548. 59110  ASC
  549. 32899  END  TAB( 
  550. 21845  END  TAB(  ^ > CALL  END  END  TAN<UNKNOWN TOKEN><UNKNOWN TOKEN><UNKNOWN TOKEN><UNKNOWN TOKEN><UNKNOWN TOKEN> END  END  END <UNKNOWN TOKEN><CTRL-0x0f> READ <UNKNOWN TOKEN>
  551. 39064  ROT=  END  END  END  DEF  ROT=  END  END  DATA  DATA  DATA 
  552. 10794  END  FOR  SCALE=  FLASH  ROT=  END  END  READ  END  READ 
  553. 40579  FLASH  END  VLIN 
  554. 48358  ASC END  END  END  ROT=  ROT=  END  END  GOSUB  TAN GOSUB 
  555. 21845 
  556. 32899  END  TAN<UNKNOWN TOKEN> TAN TAN TAN TAB(  END  END  END 
  557. 32896 <UNKNOWN TOKEN> INVERSE  HLIN  HLIN   OR <UNKNOWN TOKEN>
  558. 64716  ^ END  END  END  STOP  END  END  END  ASC LEN ASC
  559. 10794 
  560. 40833  FOR  FOR  FOR  FLASH  END  END  END  DATA  INVERSE  NOTRACE  NOTRACE  NOTRACE  END  END  READ  LIST  DEF  DEF  POKE  FLASH 
  561. 32897  FOR  END  END  END  GOSUB  STOP  END  END  ^ ^ ^
  562. 21845 
  563. 36494   OR <UNKNOWN TOKEN> INVERSE  END  END <UNKNOWN TOKEN><UNKNOWN TOKEN><UNKNOWN TOKEN><UNKNOWN TOKEN><UNKNOWN TOKEN> TAN END  END 
  564. 252 <CTRL-0x06> END  ^<UNKNOWN TOKEN> CALL  END  END  END  ASC TAN END  END  SCALE=  SCALE=  SCALE= 
  565. 10794  HGR2  USR USR USR
  566. 47288  POKE  NEW  LIST  END  END  END  VLIN  END  END  END  VLIN  END  END 
  567. 159 <CTRL-0x06> END  SCALE=  ROT=  ROT=  END  END  END  ATN TAB(  END  END  TAB(  END  TAB( 
  568. 5397  END  VTAB  LET  LET 
  569. 40688  HLIN  HLIN <UNKNOWN TOKEN> END  END  END <UNKNOWN TOKEN> VLIN <UNKNOWN TOKEN> END <UNKNOWN TOKEN> END  END <UNKNOWN TOKEN> HLIN  HLIN <UNKNOWN TOKEN> HLIN <UNKNOWN TOKEN>
  570. 62387  STOP  END  END  END  ^  STEP  END  END  SCALE=  VLIN  SCALE= 
  571. 38273  USR USR
  572. 47295  DEF  DEF  NEW  END  END  END  VLIN  END  DATA  INVERSE  VLIN  END  END  NEW  END  END  READ  END  NEW 
  573. 58342  ASC END  END  END  SCALE=  FOR  END  END  STOP  NOTRACE  STOP 
  574. 43680  LET  LET 
  575. 254 <CTRL-0x04> HLIN 
  576. 40688  INVERSE <UNKNOWN TOKEN> END <UNKNOWN TOKEN>
  577. 49344  TAB(  END  END  GOSUB  STOP  STOP  END  END  HLIN  CALL  CALL 
  578. 1024 P
  579. 54741  USR
  580. 48263 
  581. 32927  END  FLASH  DEF  FLASH 
  582. 57777  RETURN 
  583. 192 <CTRL-0x05> END  FLASH ***^
  584. 43650  LET  LET 
  585. 40688 <UNKNOWN TOKEN> HLIN <UNKNOWN TOKEN>
  586. 254 <CTRL-0x05> TAN
  587. 58342  ASC
  588. 35993  DATA  END  END  END  NOTRACE <CTRL-0x15><CTRL-0x15><CTRL-0x15><CTRL-0x1d>
  589. 32938  VTAB  LET  END  VTAB  LET  LET  END  VTAB  LET  END  VTAB  LET 
  590. 1024  STORE <UNKNOWN TOKEN><UNKNOWN TOKEN>
  591. 41600  LET  END  VTAB  LET  END  END  READ  LIST  NEW  END  FLASH 
  592. 159 <CTRL-0x05> FOR 
  593. 36748  CALL 
  594. 45955  STOP 
  595. 32900  DEL  INPUT  END  AT  ABS ABS END  AT  ABS END  AT  ABS USR END  AT  USR END  AT  USR USR END  AT  USR END  AT  USR USR END  AT  USR END  AT  USR END  AT  ABS END  AT  ABS
  596. 58339  LEN
  597. 59110  TAN
  598. 43146  STORE  END  PR#  STORE  END  PR#  STORE  STORE  END  PR#  STORE  END  PR#  STORE  STORE  END  PR#  STORE  END  PR#  STORE  STORE  END  PR#  STORE  END  PR#  STORE  END  PR#  STORE  END  PR#  STORE 
  599. 46769  DEF 
  600. 52428  TAB( 
  601. 32977  XDRAW  < END  XDRAW  < < END  XDRAW  < END  XDRAW  < < END  XDRAW  < END  XDRAW  < < END  XDRAW  < END  XDRAW  < < END  XDRAW  < END  XDRAW  < END  XDRAW  < END  XDRAW  <
  602. 59078   NOT 
  603. 33153  FOR 
  604. 32898  NEXT  NEXT  END  LET  VTAB  VTAB  END  LET  VTAB  END  LET  VTAB  VTAB  END  LET  VTAB  END  LET  VTAB  VTAB  END  LET  VTAB  END  LET  VTAB  VTAB  END  LET  VTAB  END  LET  VTAB  END  LET  VTAB  END  LET  VTAB 
  605. 33153  FOR 
  606. 32960  TAB(  TAB(  END  ABS AT  AT  END  ABS AT  END  ABS AT  AT  END  ABS AT  END  ABS AT  AT  END  ABS AT  END  ABS AT  AT  END  ABS AT  END  ABS AT  END  ABS AT  END  ABS AT 
  607. 32906  STORE  PR#  END  STORE  PR#  PR#  END  STORE  PR#  END  STORE  PR#  LET  END  VTAB  LET  END  VTAB  LET  LET  END  VTAB  LET  END  VTAB  LET  LET  END  VTAB  LET  END  VTAB  LET  END  STORE  PR#  END  STORE  PR# 
  608. 32897  FOR  FOR  END  < XDRAW  XDRAW  END  < XDRAW  END  < XDRAW  ABS END  AT  ABS END  AT  ABS ABS END  AT  ABS END  AT  ABS ABS END  AT  ABS END  AT  USR END  < XDRAW  END  < XDRAW 
  609. 32928  COLOR=  COLOR=  END  VTAB  LET  LET  END  VTAB  LET  END  VTAB  LET  STORE  END  PR#  STORE  END  PR#  STORE  STORE  END  PR#  STORE  END  PR#  STORE  STORE  END  PR#  STORE  END  PR#  LET  END  VTAB  LET  END  VTAB  LET 
  610. 32980  AT  ABS END  AT  ABS ABS END  AT  ABS END  AT  ABS < END  XDRAW  < END  XDRAW  < < END  XDRAW  < END  XDRAW  < < END  XDRAW  < END  XDRAW  USR END  AT  ABS END  AT  ABS END <UNKNOWN TOKEN> CONT  NORMAL <UNKNOWN TOKEN> CONT h SCALE= <UNKNOWN TOKEN> CONT  CLEAR <UNKNOWN TOKEN> CONT H POKE <UNKNOWN TOKEN> CONT  NORMAL <UNKNOWN TOKEN> CONT h SCALE= <UNKNOWN TOKEN> CONT  SPEED= 
  611. 43455  ^ p GET  GOSUB ' P VTAB ,N GET <CTRL-0x10><CTRL-0x0b>H SPEED= 
  612. 36286 N GET h`  OR M GET ` RESTORE M GET <UNKNOWN TOKEN><CTRL-0x0c> HLIN N GET  CLEAR <UNKNOWN TOKEN> CONT  <CTRL-0x15> WAIT  HGR2 <UNKNOWN TOKEN>` SPEED= 
  613. 43454 <CTRL-0x07> PLOT  DRAW  NEW  SPEED=  ^Lp GET   VLIN  ON  GOSUB h PLOT  FRE GET  PLOT  SGN GET ,G GET 0^ IF W GET )<CTRL-0x03><UNKNOWN TOKEN>T -<CTRL-0x03><UNKNOWN TOKEN>P)<CTRL-0x01><UNKNOWN TOKEN><CTRL-0x0c> IF e GET  PLOT c GET  IF f GET  PLOT d GET  SPEED= <UNKNOWN TOKEN> PLOT  POS GET  SPEED= 
  614. 36286  SCRN(  GET  SPEED= <CTRL-0x02> PLOT  PDL GET  SPEED=  PLOT  INT GET  SPEED=  - p GET  GOSUB $ IF c GET <CTRL-0x0d>d GET <CTRL-0x18><UNKNOWN TOKEN><CTRL-0x1c> SPEED=  * p GET  GOSUB <CTRL-0x14> IF c GET  RIGHT$
  615. 44478 d GET  RIGHT$
  616. 45246  COS SPEED= <CTRL-0x0b>8` IF <UNKNOWN TOKEN> CONT  PLOT <CTRL-0x0a> LIST  IF 
  617. 48139  SPEED=